COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 
C00004 ENDMK
C⊗;
 
 
VARIABLE /Z;  Z←999;
INSTRUMENT TOOTA;    
OSCIL[15](P4,15*MAG/P2,P5);
ZOSCIL(U1,P3*MAG,P6);< P6 IS TONE COLOR FOR 'TOOTA'
PRINT Z;
ZERO(F4);
 Z←F4[0];
PRINT F4[0];  PRINT Z,P4; F4[0]←1;
OUTA←OUTA+U2;
END;
PLAY;TOOTA 0 .1 C 1000 F2 F1;FINI;